; Installer fr VirusWorkShop 
; Sprachvorgabe deutsch
; 19.04.95 @ Elli
;
; Editiert und fertiggestellt von Marcel Dring 22.10.95
; Version 0.12

(if (= @language "deutsch")
        (
                (set VWbadkick "Kickstart 37.175 (OS 2.04) wird unbedingt bentigt!")
                (set VWaskdir (cat "In welchem Verzeichnis mchten Sie " @app-name " installieren?"))
                (set VWdirhelp
                        (cat
                                 "Whlen sie das Verzeichnis, in dem " @app-name " mit allen"
                                 " notwendigen Dateien und Unterverzeichnissen installiert"
                                 " werden soll."
                        )
                )
                
                (set VWlanguage "Welche Sprachen mchten Sie installieren?")
                (set VWlanghelp
                        (cat
                                 "Die Dokumentation zu " @app-name " steht in deutscher und"
                                 " hollndischer Sprache zu Ihrer Verfgung und sie knnen nun"
                                 " aussuchen, welche Sprache(n) installiert werden sollen.\n\n"
                                 "Sofern sie ber OS 2.1 (oder besser) verfgen, werden dabei"
                                 " auch noch die dazugehrenden Katalogdateien kopiert, damit"
                                 " auch die Bedienelemente entsprechend beschriftet werden."
                        )
                )
                (set VWwhichfile "Welche Programme und Programmteile sollen installiert werden?")
                (set VWfilehelp 
                        (cat       
                                 "Die von Ihnen angewhlten Programme und Programmteile"
                                 "werden in die dafr erzeugten Verzeichnisse kopiert.\n\n"
                                 "Zur Benutzung des Programms sind nicht alle Dateien ntig;\n\n"
                                 "BITTE das GUIDE file dazu lesen!!!"
                         )
                )             
                (set VWDutch "Niederlndisch")
                (set VWGerman "Deutsch")
                
                (set VWwhichicons "Welche Icons mchten Sie installieren?")
                (set VWmagicicons "MagicWB Icons")
                (set VWstandardicons "Standard Icons")
        )
)
 
(set #XFDMsg
(cat "Kopieren der ntigen Decruncher und der ReadMe-Datei."
))

(set #CMsg
(cat "Welche Programme mchten Sie bernehmen ?"
))

(set #ARexx
(cat "Welche ARexx-Beispielskripte mchten Sie bernehmen ?"
))

(set #Sask
(cat "Mchten Sie die Startup-Sequence z.B. \n"
     "fr Disk-Startup-Zwecke kopieren ?"
))

(if (= @language "english")
        (
                (set VWbadkick "Kickstart 37.175 (OS 2.04) must be present for VW !")
                (set VWaskdir (cat "In which directory you want to install " @app-name " ?"))
                (set VWdirhelp
                        (cat
                                 "Choose the directory, in which " @app-name " (including all "
                                 " needed files and subdirectories) should be installed !"

                        )
                )
                
                (set VWlanguage "Welche Sprachen mchen Sie installieren?")
                (set VWlanghelp
                        (cat
                                 "Die Dokumentation zu " @app-name " steht in deutscher und"
                                 " hollndischer Sprache zu Ihrer Verfgung und sie knnen nun"
                                 " aussuchen, welche Sprache(n) installiert werden sollen.\n\n"
                                 "Sofern sie ber OS 2.1 (oder besser) verfgen, werden dabei"
                                 " auch noch die dazugehrenden Katalogdateien kopiert, damit"
                                 " auch die Bedienelemente entsprechend beschriftet werden."
                        )
                )
                (set VWwhichfile "Which programms should be installed ?")
                (set VWfilehelp 
                        (cat       
                                 "Die von Ihnen angewhlten Programme und Programmteile"
                                 "werden in die dafr erzeugten Verzeichnisse kopiert.\n\n"
                                 "Zur Benutzung des Programms sind nicht alle Dateien ntig;\n\n"
                                 "BITTE das GUIDE file dazu lesen!!!"
                         )
                )             
                (set VWDutch "Niederlndisch")
                (set VWGerman "Deutsch")
                
                (set VWwhichicons "Welche Icons mchten Sie installieren?")
                (set VWmagicicons "MagicWB Icons")
                (set VWstandardicons "Standard Icons")
        )
)
 
(set #XFDMsg
(cat "Please choose which decrunchers you want \n"
     "to install.(It`s recommended to install all \n"
     "of them !"
))

(set #CMsg
(cat "Please verify which tools you want to install."
))

(set #ARexx
(cat "Which ARexx-examples do you want to install ?"
))

(set #Sask
(cat "Would you like to copy the Startup-Sequence \n"
     "e.q. for Disk-Startup ?"
))


(if (< (/ (getversion "intuition.library" (resident)) 65536) 37)
        (
                (message VWbadkick)
                (exit)
        )
)

;Sage mir blo nicht, wohin in diesem Wirrwarr !?!?! 

(set VirusWorkShopdir
        (askdir
                (prompt VWaskdir)
                (help VWdirhelp)
                (newpath)
                (default "SYS:")
        )
)



(set VirusWorkshopdir (tackon VirusWorkshopdir "VirusWorkshop"))
(if (NOT (exists VirusWorkshopdir))
        (makedir virusworkshopdir (infos))
)                                  
(set docdir (tackon VirusWorkShopdir "Documents"))
(if (NOT (exists docdir))
        (makedir docdir (infos))
)
(set prefsdir (tackon VirusWorkshopdir "Prefs"))
(if (NOT (exists prefsdir))
        (makedir prefsdir (infos))
)
(set cdir (tackon VirusWorkShopdir "C"))
(if (NOT (exists cdir))
        (makedir cdir)
)
(set ARexxDir (tackon VirusWorkShopdir "ARexx"))
(if (NOT (exists ARexxDir))
        (makedir ARexxDir)
)
(set sdir (tackon VirusWorkShopdir "s"))
(if (NOT (exists sdir))
        (makedir sdir)
)
(set libsdir (tackon VirusWorkShopdir "Libs"))
(if (NOT (exists libsdir))
        (makedir libsdir)
)
(set localedir (tackon VirusWorkShopdir "Locale"))
(if (NOT (exists localedir))
        (makedir localedir)
)
(set toolsdir (tackon VirusWorkShopdir "Tools"))
(if (NOT (exists toolsdir))
        (makedir toolsdir (infos))
)
(set xfddir (tackon VirusWorkShopdir "Libs/xfd"))
(if (NOT (exists xfddir))
        (makedir xfddir)
)
(complete 5)

(set installfiles
        (askoptions
                (prompt VWwhichfile)
                (choices "VirusWorkShop" "VW.Prefs" "DHunk" "ELrm" "VW.Save!" "Die ntigen Librarys" "Die ARexx Skripte" "MagicWB-Icons" "Startup-Sequence" )
                (help VWfilehelp)
                (default VirusWorkShopdir)
        )
)

(complete 10)

;kopiere files nach dest.

(if (BITAND installfiles 1)
(copyfiles
        (source "VirusWorkShop")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "VirusWorkShop.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs.README")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 1)
(copyfiles
        (source "/VirusWorkshop/VW.Prefs.README.sig")
        (dest VirusWorkShopdir)
)
)

(complete 20)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop")
        (dest prefsdir)
)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop.info")
        (dest VirusWorkShopdir)
)
 
)
 
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/Prefs/VirusWorkshop.sig")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News")
        (dest VirusWorkShopdir)
)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News.info")
        (dest VirusWorkShopdir)
)
 
)
 
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VirusWorkshop.News.sig")
        (dest VirusWorkShopdir)
)
)

(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs")
        (dest VirusWorkShopdir)
)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs.README")
        (dest VirusWorkShopdir)
)
 
)
(if (BITAND installfiles 2)
(copyfiles
        (source "/VirusWorkShop/VW.Prefs.README.sig")
        (dest VirusWorkShopdir)
)
)

(complete 30)

(if (BITAND installfiles 3)
(copyfiles
        (source "/VirusWorkShop/Tools/DHunk")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 3)
(copyfiles
        (source "/VirusWorkShop/Tools/DHunk.sig")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 4)
(copyfiles
        (source "/VirusWorkShop/Tools/Elrm")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 4)
(copyfiles
        (source "/VirusWorkShop/Tools/Elrm.sig")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!")
        (dest Toolsdir)
)
)
(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!.info")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 5)
(copyfiles
        (source "/VirusWorkShop/Tools/VW-Save!.sig")
        (dest Toolsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/FileID.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/FileID.library.sig")
        (dest Libsdir)
)
)

(complete 40)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/powerpacker.library")
        (dest Libsdir)
)
)
(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/Reqtools.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/ReqTools.library.sig")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/xfdmaster.library")
        (dest Libsdir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (source "/VirusWorkShop/Libs/xfdmaster.library.sig")
        (dest Libsdir)
)
)

(complete 50)

(if (BITAND installfiles 6)
(copyfiles
        (help @copyfiles-help)
        (prompt #XFDMsg)
        (source "/VirusWorkshop/Libs/XFD")
        (confirm)
        (all)
        (dest Xfddir)
)
)

(if (BITAND installfiles 6)
(copyfiles
        (help @copyfiles-help)
        (prompt #CMsg)
        (source "/VirusWorkshop/C")
        (confirm)
        (all)
        (dest Cdir)
)
)

(if (BITAND installfiles 7)
(copyfiles
        (help @copyfiles-help)
        (prompt #ARexx)
        (source "/VirusWorkshop/ARexx")
        (confirm)
        (all)
        (dest ARexxDir)
)
)

(complete 60)

(if (BITAND installfiles 2)

(copyfiles
       (source "Documents/VirusWorkshop.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VirusWorkshop.Guide.info")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Starterproblems.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Starterproblems.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/Dhunk.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Dhunk.Guide.info")
       (dest docdir)

)
)

(complete 65)

(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/Elrm.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Elrm.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/VW-Viruses.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Viruses.Guide.info")
       (dest docdir)

)
)


(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/NewVirus.guide")
       (dest docdir)

)
)

(complete 70)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/NewVirus.Guide.info")
       (dest docdir)

)
)


(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/VWMemmon.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VWMemmon.Guide.info")
       (dest docdir)

)
)
(if (BITAND installfiles 2)     
(copyfiles
       (source "Documents/Pref-Edit.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/Pref-Edit.Guide.info")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Save!.guide")
       (dest docdir)

)
)

(if (BITAND installfiles 2)
(copyfiles
       (source "Documents/VW-Save!.Guide.info")
       (dest docdir)

)
)

(complete 75)

(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB.Readme")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB.Readme.sig")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/DosTouch.Guide.info")
        (dest docdir)

)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/Pref-Edit.Guide.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/Pref-Edit.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.guide.info")
        (dest docdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VirusWorkshop.News.info")
        (dest VirusWorkShopdir)
)
)
(if (BITAND installfiles 8)
(copyfiles
        (source "/VirusWorkshop/MagicWB/VWMemMon.Guide.info")
        (dest docdir)
)
)

(complete 90)

(if (BITAND installfiles 9)
(copyfiles
        (help @copyfiles-help)
        (prompt #Sask)
        (source "/VirusWorkshop/S")
        (confirm)
        (all)
        (dest SDir)
)
)               

;Correct @default-dest so that final information is correct.
(set @default-dest VirusWorkShopdir)

(complete 100)

(exit)
